home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Strate…Tools for the Enterprise / Microsoft Internet Strategy & Tools for the Enterprise.iso / content / devel.tls / icp / httpexpl.exe / FRMCONF.FRM (.txt) next >
Visual Basic Form  |  1996-03-06  |  4KB  |  131 lines
  1. VERSION 4.00
  2. Begin VB.Form frmConfirm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Confirm File Open"
  5.    ClientHeight    =   3060
  6.    ClientLeft      =   1110
  7.    ClientTop       =   1530
  8.    ClientWidth     =   5475
  9.    Height          =   3465
  10.    Icon            =   "frmConf.frx":0000
  11.    Left            =   1050
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3060
  17.    ScaleWidth      =   5475
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   1185
  20.    Width           =   5595
  21.    Begin VB.CheckBox chkAsk 
  22.       Caption         =   "Al&ways ask before opening this type of file"
  23.       Height          =   225
  24.       Left            =   810
  25.       TabIndex        =   6
  26.       Top             =   2070
  27.       Value           =   1  'Checked
  28.       Width           =   3675
  29.    End
  30.    Begin VB.CommandButton cmdCancel 
  31.       Cancel          =   -1  'True
  32.       Caption         =   "Cancel"
  33.       Height          =   375
  34.       Left            =   4170
  35.       TabIndex        =   2
  36.       Top             =   2520
  37.       Width           =   1125
  38.    End
  39.    Begin VB.CommandButton cmdSaveAs 
  40.       Caption         =   "Save &As..."
  41.       Height          =   375
  42.       Left            =   2940
  43.       TabIndex        =   1
  44.       Top             =   2520
  45.       Width           =   1125
  46.    End
  47.    Begin VB.CommandButton cmdOpen 
  48.       Caption         =   "&Open"
  49.       Height          =   375
  50.       Left            =   1710
  51.       TabIndex        =   0
  52.       Top             =   2520
  53.       Width           =   1125
  54.    End
  55.    Begin MSComDlg.CommonDialog cmmDialog 
  56.       Left            =   0
  57.       Top             =   2580
  58.       _Version        =   65536
  59.       _ExtentX        =   847
  60.       _ExtentY        =   847
  61.       _StockProps     =   0
  62.    End
  63.    Begin VB.Label lblFileName 
  64.       AutoSize        =   -1  'True
  65.       Caption         =   """file.exe"" (Application)"
  66.       Height          =   195
  67.       Left            =   3120
  68.       TabIndex        =   7
  69.       Top             =   180
  70.       Width           =   1560
  71.    End
  72.    Begin VB.Label Label1 
  73.       Caption         =   "Please be aware that some files can contain viruses or otherise harm your computer"
  74.       Height          =   435
  75.       Index           =   2
  76.       Left            =   810
  77.       TabIndex        =   5
  78.       Top             =   360
  79.       Width           =   3855
  80.    End
  81.    Begin VB.Label Label1 
  82.       Caption         =   "You hav chosen to open the file "
  83.       Height          =   195
  84.       Index           =   1
  85.       Left            =   810
  86.       TabIndex        =   4
  87.       Top             =   180
  88.       Width           =   2325
  89.    End
  90.    Begin VB.Label Label1 
  91.       Caption         =   $"frmConf.frx":000C
  92.       Height          =   615
  93.       Index           =   0
  94.       Left            =   810
  95.       TabIndex        =   3
  96.       Top             =   1080
  97.       Width           =   3675
  98.    End
  99.    Begin VB.Image Image1 
  100.       Height          =   480
  101.       Left            =   150
  102.       Picture         =   "frmConf.frx":009B
  103.       Top             =   180
  104.       Width           =   480
  105.    End
  106. Attribute VB_Name = "frmConfirm"
  107. Attribute VB_Creatable = False
  108. Attribute VB_Exposed = False
  109. Option Explicit
  110. Private Sub cmdCancel_Click()
  111.     Me.Tag = CStr(vbCancel)
  112.     Me.Hide
  113. End Sub
  114. Private Sub cmdOpen_Click()
  115.     Me.Tag = CStr(vbOK)
  116.     Me.Hide
  117. End Sub
  118. Private Sub cmdSaveAs_Click()
  119.     cmmDialog.InitDir = App.Path
  120.     cmmDialog.ShowSave
  121.     If (cmmDialog.CancelError) Then Exit Sub
  122.     Me.Tag = cmmDialog.filename
  123.     Me.Hide                                     ' Hide Form But Keep It Active
  124. End Sub
  125. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  126.     If (UnloadMode = vbFormControlMenu) Then    ' Was Form Closed With ControlMenu?
  127.         Cancel = True                           ' Cancel Request
  128.         Call cmdCancel_Click                    ' Simulate Cancel Button Click
  129.     End If
  130. End Sub
  131.